home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / EVOLUTION INTRO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  72 lines
  1. 10  TEXT : HOME 
  2. 20 D$ =  CHR$(4)
  3. 30  PRINT "              EVOLUTION"
  4. 40  PRINT 
  5. 50  PRINT "     GIVEN THE LAWS OF THERMODYNAMICS"
  6. 60  PRINT "GOVERNING THE ENERGY AND ENTROPY OF"
  7. 70  PRINT "SYSTEMS, HOW COULD LIFE HAVE EVOLVED?"
  8. 80  PRINT "SIMPLY STATED, THE LAWS ARE:"
  9. 90  PRINT "(1) ENERGY CONSERVATION (YOU CAN'T WIN)"
  10. 100  PRINT "(2) ENTROPY OR RANDOMNESS INCREASES"
  11. 110  PRINT "    (YOU CAN'T BREAK EVEN)"
  12. 120  PRINT "(3) ABSOLUTE ZERO TEMPERATURE (YOU"
  13. 130  PRINT "    CAN'T GET OUT OF THE GAME)"
  14. 140  PRINT "     A FIRST STEP IN RESOLVING THE"
  15. 150  PRINT "PARADOX OF HOW HIGHLY ORGANIZED LIFE"
  16. 160  PRINT "DEVELOPED COUNTER TO THE LAW OF"
  17. 170  PRINT "INCREASING RANDOMNESS IN NATURE IS TO"
  18. 180  PRINT "RECOGNIZE OUR LACK OF INTUITION INTO"
  19. 190  PRINT "WHAT IS RANDOM.  MOST PEOPLE, GIVEN THE"
  20. 200  PRINT "TASK OF RANDOMLY DISTRIBUTING BLACK"
  21. 210  PRINT "BATHROOM TILE AMONG THE BACKGROUND"
  22. 220  PRINT "WHITE TILE, WILL DO SO BY CREATING AN"
  23. 230  PRINT : PRINT "       PRESS SPACE TO CONTINUE.": GET A$
  24. 235  HOME 
  25. 240  PRINT "AESTHETICALLY PLEASING PATTERN OF"
  26. 250  PRINT "EVENLY MIXED BLACK-ON-WHITE. THIS IS"
  27. 260  PRINT "HIGHLY NONRANDOM. STATISTICALLY, IT IS"
  28. 270  PRINT "MUCH MORE LIKELY THAT THERE WILL BE"
  29. 280  PRINT "AREAS OF BLACK TILES TOGETHER AND LARGE"
  30. 290  PRINT "AREAS OF UNTOUCHED WHITE."
  31. 300  PRINT "     IF SUCH 'FLUCTUATIONS' OF BLACK"
  32. 310  PRINT "TILES (OR MOLECULES OR CELLS) REACH A"
  33. 320  PRINT "CRITICAL SIZE THEY MAY 'SURVIVE' AND"
  34. 330  PRINT "NATURALLY DEVELOP INTO MORE AND MORE"
  35. 340  PRINT "COMPLEX STATES, DEPENDING ON THE RULES"
  36. 350  PRINT "THEY LIVE BY. THE POWER OF A SMALL"
  37. 360  PRINT "NUMBER OF FIXED RULES TO PRODUCE AN"
  38. 370  PRINT "UNPREDICTABLE AMOUNT OF COMPLEXITY IS"
  39. 380  PRINT "STRIKING. THE 'LIFE GAME', DEVELOPED"
  40. 390  PRINT "BY, AMONG OTHERS, THE MATHEMATICIANS"
  41. 400  PRINT "STANISLAUS ULAM AND JOHN CONWAY, BEST"
  42. 410  PRINT "SHOWS THIS POWER. THE THREE RULES"
  43. 420  PRINT "GOVERNING CELL LIFE ARE:"
  44. 425  PRINT : PRINT "       PRESS SPACE TO CONTINUE.": GET A$: HOME 
  45. 430  PRINT "(1) SURVIVAL (HAVING 2 OR 3 NEIGHBORS)"
  46. 450  PRINT "(2) BIRTH (SPACE HAVING 3 NEIGHBORS)"
  47. 460  PRINT "(3) DEATH (HAVING LESS THAN 2 OR"
  48. 470  PRINT "    GREATER THAN 3 NEIGHBORS)"
  49. 480  PRINT "     THESE CONCEPTS OF RANDOM"
  50. 490  PRINT "FLUCTUATIONS, CRITICAL SIZE, AND THE"
  51. 500  PRINT "POWER OF SIMPLE, FIXED LIFE RULES ARE"
  52. 510  PRINT "COMBINED IN THE FOLLOWING PROGRAMS. SIT"
  53. 520  PRINT "BACK AND WATCH HOW LONG LIFE TAKES"
  54. 530  PRINT "TO 'EVOLVE' AND THEN WATCH IT'S"
  55. 540  PRINT "PROGRESSION. THE HIGH-RESOLUTION SHAPE"
  56. 550  PRINT "TABLES AND SCANNING ROUTINE WERE"
  57. 560  PRINT "DESIGNED BY RAUL CARTAYA FOR HIS GAME"
  58. 570  PRINT "OF 'LIFE' FOR 'NIBBLE' MAGAZINE, 1982."
  59. 580  PRINT "FOR FURTHER READING I SUGGEST THE BOOK"
  60. 590  PRINT "'GRAMMATICAL MAN: INFORMATION, ENTROPY,"
  61. 600  PRINT "LANGUAGE, AND LIFE' BY JEREMY CAMPBELL,"
  62. 610  PRINT "SIMON AND SCHUSTER PUB.CO., 1982."
  63. 615  PRINT : PRINT 
  64. 620  PRINT "         1 = COLOR EVOLUTION"
  65. 630  PRINT "         2 = HI-RES EVOLUTION"
  66. 635  PRINT "         3 = REPEAT TUTORIAL"
  67. 640  PRINT "                               WHICH?";: GET A$: PRINT A$
  68. 650  IF A$ = "1"  THEN  PRINT D$;"RUN COLOR EVOLUTION"
  69. 660  IF A$ = "2"  THEN  PRINT D$;"RUN HI-RES EVOLUTION"
  70. 665  IF A$ = "3"  THEN  GOTO 10
  71. 670  HOME : VTAB 8: GOTO 620
  72. 680  END